Setup
Packages
# Packages
require(ggplot2)
require(plotly)
require(geojsonio)
require(sp)
require(sf)
Functions
# Given a geojson file, return an SF object for plotting
geojson_sf <-
function(file){
data <- geojson_read(file, what = "sp")
return(st_as_sf(data))
}
Data
# Download file
url = "https://opendata.arcgis.com/datasets/5f45e1ece6e14ef5866974a7b57d3b95_1.geojson"
file = "NJ_counties.geojson"
download.file(url,file)
#NJ_Counties <- geojson_sf(file)
NJ_Counties %>%
plot_ly(fill = ~COUNTY)
No trace type specified:
Based on info supplied, a 'scatter' trace seems appropriate.
Read more about this trace type -> https://plot.ly/r/reference/#scatter
No trace type specified:
Based on info supplied, a 'scatter' trace seems appropriate.
Read more about this trace type -> https://plot.ly/r/reference/#scatter
LS0tDQp0aXRsZTogIkdlb2pzb24gVGVzdGluZyINCm91dHB1dDogaHRtbF9ub3RlYm9vaw0KLS0tDQoNCiMjIyBTZXR1cA0KDQojIyMjIFBhY2thZ2VzDQoNCmBgYHtyfQ0KIyBQYWNrYWdlcw0KcmVxdWlyZShnZ3Bsb3QyKQ0KcmVxdWlyZShwbG90bHkpDQpyZXF1aXJlKGdlb2pzb25pbykNCnJlcXVpcmUoc3ApDQpyZXF1aXJlKHNmKQ0KYGBgDQoNCiMjIyMgRnVuY3Rpb25zDQoNCmBgYHtyfQ0KIyBHaXZlbiBhIGdlb2pzb24gZmlsZSwgcmV0dXJuIGFuIFNGIG9iamVjdCBmb3IgcGxvdHRpbmcNCmdlb2pzb25fc2YgPC0gDQogIGZ1bmN0aW9uKGZpbGUpew0KICAgIGRhdGEgPC0gZ2VvanNvbl9yZWFkKGZpbGUsIHdoYXQgPSAic3AiKQ0KICAgIHJldHVybihzdF9hc19zZihkYXRhKSkNCiAgfQ0KYGBgDQoNCg0KIyMjIyBEYXRhDQoNCg0KYGBge3J9DQojIERvd25sb2FkIGZpbGUNCg0KdXJsID0gImh0dHBzOi8vb3BlbmRhdGEuYXJjZ2lzLmNvbS9kYXRhc2V0cy81ZjQ1ZTFlY2U2ZTE0ZWY1ODY2OTc0YTdiNTdkM2I5NV8xLmdlb2pzb24iDQoNCmZpbGUgPSAiTkpfY291bnRpZXMuZ2VvanNvbiINCg0KZG93bmxvYWQuZmlsZSh1cmwsZmlsZSkNCmBgYA0KDQpgYGB7cn0NCiNOSl9Db3VudGllcyA8LSBnZW9qc29uX3NmKGZpbGUpDQoNCk5KX0NvdW50aWVzICU+JQ0KICBwbG90X2x5KGZpbGwgPSB+Q09VTlRZKQ0KDQpgYGANCg0K